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BETA DISK USERS CLUB 


. BETA ‘DISK NEWSLETTER (NO. 2 
STOP PRESS...STOP PRESS...STOP PRESS...STOP PRESS...STOP PRESS 


March. 20th. Reports reaching BDUC confirm that TR ceased trading 
as of today. BDUC advised members not to return disk interfaces 
or drives to TR for repair, or send cash for goods. Enquiries 
should be directed to the Official Receiver in Reading. 


Welcome to this the second issue of the BDUC newsletter. 
After the depressing news of TR’s collapse I can assure members 
that this does not signify the end of BDUC! 

Thank You to BDUC members for comments and contributions. 
The BDUC survey data is currently being compiled and should be 
available next issue,’in the mean time if you have not returned 
your survey questionaire, please do! 


Some users with older versions of TRDOS (4.xx or earlier) 
have indicated, that these early revisions did not support the 
LIST function, it should be relatively easy to use CAT to 


provide .j Irmat Lon for an extended catalogue similar to the 
program rigsue 1. 
WHOOPS! 


In the conversion from programs developed using Beta Basic 
for inclusion in the newsletter one or two bugs crept in. Here 
are the corrections. 


Page 3 line 260 
268 RANDOMIZE USR DOS: REM: CLOSE #7 


Page 4 line 10,20,25 
18 RANDOMIZE USR DOS: REM: OPEN #8, “LIST",W 
23 MOVE “M";1;"1" TO #8 . 
25 RANDOMIZE USR DOS: REM: CLOSE #8 


Page 4 line 42 
4Q LET E=USR DOS: REM: OPEN #9, “LIST",R 


In future editions BDUC will wherever possible include 
programs for Beta+ and Beta 128 interfaces. 
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" TRDOS and RANDOMIZE USR 15616. BY M.J.SMITH, BDUC. 


The 48K Spectrum operating system in ROM occupies 16K of 
meaory from location @ to 16383, It can therefore be seen that 
16616 is within this range, so why does TRDOS make. a call to 
what is normally a ROM address? 

First of all we need to investigate the contents of address 


18616 without the Beta disk -connected: “So armed -with your 


favorite disassembler look at the address 15616 (3DQ0H). You 


. should find something like thia: ; : 
* 15616 3D@0H 68 NOP TO 15624 3D68H @8 NOP 
This location is-the start of the Sinclair character set bit- 
map and ia character code 32 which is ‘SPACE’. The next step is 
to refit your Beta and save TRDOS to disk. This is easily 
accomplished by entering TRDOS and typing directly: 


SAVE “TRDOS" CODE @, 16384 


This saves 16K of code whilst TRDOS is paged in. The actual 
hardware that pages an TRDOS is complex but here is the basic 
idea explained. 


~ This is 


my 


own personal interpretation, if anyone has 


disected a Beta interface please correct me if I’m wrong! 


A call to 15616 causes a particular logic state on the i 
eddress bus of the interface, in this case: 


15616 
15619 


AlL5 © Ao 
3DQGH 3 D Q @ 

@Z11 1181 0800 0G00 ’ 
3D83H 3 D @ i) 


@@11 1101 8000 6011 


The address lines are decoded by logic gates and lines A15 to A8 
of the address bus are used. Once the condition is met, then 
TRDOS is paged in a similar way to the Interface 1 ROM is paged 
( Interface 1 uses address 8 which is easily decoded ) the 
Spectrum operating system is temporarily ‘replaced’ by TRDOS. 
The code at location 15616 is then executed. Here’s a quick 
disassembly of the code at 15616, notice now that TRDOS has 
replaced the eight NOP’s with the code: 


15616 
15617 
15619 


3D@GH 08 NOP ;wait one m cycle 
3D01H 182E JR 15665 ; jump to routine 
3D@3H 86 NOP ;wait one m cycle 


15620 3D04H 1814 JR 15642 ; jump to routine 

The reason for a time delay is because hardware paging can 
take longer than 1 m cycle and the time delay is included to 
ensure paging has occured correctly before execution of code. 

The best way to look at this is to load your TRDOS code at 
32200 (7D0@H) and disassemble, remember to subtract 32000 from 
all the absolute addresses. So 15616 = 47616 (BAQ@QH) and 15619 = 
47619 (BAQ3H). 
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TASWORD 2 TEXT TO BETA DISK. BY M.J.SMITH, BDUC. 


This program enables security back-up of Tasword 3 text files 
to disk. It's quite frustrating to have disk storage on line and 
be forced to use microdrive with an excellant program such as 
Tasword 3. BDUC-has approached Tasman of Leeds about producing a 
Beta compatible version but at this presses time they ~have ad 
plans to do so. 

Several BDUC wmembers have naked sbous Beta soupatiide 
versions of Tasword 3, I do hope to have further news in the 
next issue. 


Listing 1 produces text files on disk from cartridge and 
listing 2 transfers files back to microdrive. I use thia method | 
to archive my text files. 

This version was written for 5.@1 or 5.03 TRDOS. 


Listing 1. 


1@ PRINT TAB 9; "TASWORD3-BETA"’’ “TASWORD3 TEXT IN MDRIVE 1 AND 
BACKUP" “DISK IN DRIVE A”’“ PRESS ANY KEY “ 
28 LET F=0 
3@ PAUSE @ 
4@ CLEAR # . 
5@ LET E=USR 15619: REM : OPEN #9, “TEMP",W 
66 CAT #9,1 
7@ LET E=USR 15619: REM : CLOSE #9 
82 PRINT ‘*"“CATALOGUE COMPLETE“ 
92 LET E=USR 15619: REM : OPEN 89, “TEMP”,R 
100 INPUT #9;D$ 
11@ INPUT #9;D$ 
12@ INPUT #9;2$ 
130 IF LEN Z$=@ THEN GO TO 218 
140 LET F=F+1 
15Q PRINT AT 12,6; "MOVING: ";F;"“ ";Z$;AT 12,16; " 
16Q LET E=USR 15619: REM : OPEN #12,23,W 
178 MOVE "M";1;2$ TO #18 
180 LET E=USR 15619: REM : CLOSE #19 
198 PRINT AT 12,18; "OK" 
228 GO TO 128 
210 LET E=USR 15619: REM CLOSE #9 
220 PRINT F;,"” FILES MOVED" 
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The second part transfers archive files back to the current 
text file cartridge in drive 1. 


Listing 2. 


10 PRINT “TASWORDS TEXT DATA IN DISK, Aer MESBORR INE IN DRIVE 
1 *’'; FLASH 1;” PRESS A KEY ” 
20 LET F=0 
38 PAUSE @ 
4 LET E=USR 15619: REM : OPEN #9, "TEMP",R 
- 50 INPUT #9;D$ . 
68 INPUT #9;D$ 
7@ INPUT #9;2% 
688 IF LEN Z$=@ THEN GO TO 160 
80 LET F=F+1 
108 PRINT AT 12,0; "MOVING: ";2Z$;° ; 
110 RANDOMIZE USR 15619: REM >: OPEN #10,25,R 
128 MOVE #12 TO “M";1;2$ 
138 LET E=USR 15619: REM : CLOSE #10 
148 PRINT AT 12,18; “OK” 
158 GO TO 78 
16@ LET E=USR 15619: REM : CLOSE #9 
178 PRINT F;" FILES MOVED” 


“we 


Both listings could be joined together and modified to give 


2 backup of individual files. One point to bear in mind is that 
; the cartridge to be transferred to disk must contain DATA files 
o's only since the CAT in line 68 will give all file types but the 


transfer lines are for DATA files only and a BASIC halt will be 
produced if a transfer is attempted. 
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BDUC SPECIAL OFFER 

BDUC has negotiated a special price on BETA BASIC by 
BETASOFT. The normal price is £14.95 the club offer price is 
£12.95. This program is highly recommended by BDUC. 

IMPORTANT: To qualify for discount members must send their order 


to BDUC on the order form enclosed. Overseas members should 
enquire about discounts. 
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Here is a very useful utility that yqu can include on all your 
disks it’s form Nick Cooper of Leicesterghire. 


AUTOBOOT BY NICK COOPER. 


There are two parts of Basic to type in, but I feel sure 
: you'll find the effort worth it.. The first part is a small 
program to poke some machine code into the first line of BASIC. - 

First type in listing one and run it. Delete all the lines 
except line 10 and save this to disk. Type in the listing two, 
and save this also. 

Now, with the second listing in memory, MERGE in the first 
listing and save the merged program as 'boot’ with auto start 
line 15. And that’s it! Save a copy onto every disk that you 
want a bootfile on. 

As far as I’m aware this program will only work with the 
Beta 128 interface (Version 5.@3) and should work with both the 
Spectrum 48+ and the 128k machine. 

Due to another bug in the Beta i/f,the program will return to 
Basic with the drive running, if a disk is’nt present although 
this should'nt occur as a disk has to be present to load it in 
the first place. 


INSTRUCTIONS 


Autoboot supports BASIC, CODE and SNAPSHOT files but not 
data, random and serial access files. 
Once loaded, you are offered the following options:- 
a Keys A-P 2 
Will load the file corresponding to that letter on the screen. 


If that file is BASIC, then it will load and control will 
return back to basic. Before a CODE file is loaded, however, 
you’re first asked where you want it to load to.This can be in 
the range 30020 upto the top of memory.Should you attempt to 
load it too high, then you will be told to try again. If you just 
press ENTER at the prompt the file will load to the address it 
was saved from.Pressing STOP will abart. 

You are then asked if you want to move ramtop. This will move 
ramtop without destroying any variables. If you enter an address 
from 30808 to top of memory, then ramtop will move to that 
address.If you just press ENTER at the prompt then the following 
will happen. If you are attempting to load below ramtop (or 
indeed over it) then ramtop will be moved to the load address 
minus one. On the other hand, if you're attempting to load 
anywhere above ramtop, then ramtop will be left alone. Pressing 
STOP will abort. 





Onse the file is loaded, you are then asked for the run 
address. Again, any address from 30000 to the top of memory will ~ 
run the file froa that address. If you just press ENTER at the 
prompt the file will run from the load address.STOP aborts. 

If you do not wish the file to run, but return to basic then 
just press cursor dow. 

Snapshot files will ask for confirmation before loading as 
loading one accidently could be disasterous! 


Cursor left-right 


Will page through each screen full of files. (There are 16 
files to a screen making 8 screensfull for a full disk.) Going 
past the last screen will return to the first. 


Options 1,2,3 


1. Extended catalogue. 
2. Change Disc. If, you want to reboot a different disc, 


3. Call TRDOS. Will return to the bootfile. 


Type in the following listing and follow the instructions given 
above. Line 10 contains 69 x’s, this space should be reserved 
for machine code poked in by the rest of the prog. 


The facility has also been added so that multiple drives are 
catered for and disc title, number of files, and free space is 


given in Kbytes. 


Listing 1. 


10 REM xxxx 69 x‘'S XxXXXXKXXXXXKXRXXXKMXARKXK KKM 
5@ RESTORE 

6@ LET x=(PEEK 23635+256*PEEK (23636))+5 

72 FOR a=@ TO 68: KEAD 2: POKE xta,z: NEXT a 
88 STOP 

108 DATA 1,5,1,17,1,8,33, 25, 105, 205 

181 DATA 19,61,201,17,8,0, 24,11,17,96 

102 DATA 234, 42,178,92,175, 237, 82,56,39, 175 
103 DATA 27, 237,83,178,92, 103,111, 57,68, 77 
104 DATA 42,61,92,35, 229, 183, 237,66,68,77 

105 DATA 3,225, 62,62, 18,27, 27, 27, 237, 83 

106 DATA 61,92,19,237, 184, 19, 235, 249, 201 


Listing 2. 


15 
20 
38 
40 
45 


58 
60 


188 
110 
120 
138 
140 
15d 


160 


176 
200 
210 
220 


225 
230 


240 
250 
268 
278 
280 
285 
290 
300 
318 
328 
325 
3390 


335 
349 





CLEAR : DIM a$(16,16) 

LET y=(PEEK 23627+256¥*PEEK (23628))+8 

LET x=(PEEK 23635+256*PEEK (23636) )+5 

POKE x+7,y~256*INT (y/256): POKE x+8, INT (y/256) 

POKE x+4,8: RANDOMIZE USR x: LET t$=a$(16,6 TO 12): LET dg= 
CHR$ ((PEEK 23833)+65): LET f£1=CODE (a$(15,5)): LET bf=INT 
(({CODE a$(15,6)+CODE a$(15,7)*256)/4) wie 

LET f=@: LET n=l: POKE x+4,@: RANDOMIZE USR x 

CLS : PRINT : PRINT “ *Autoboot N.Cooper 1987%*"''" Title 
:"3t$," Disc Drive: “;d$," “;f1;" file(s)", " Free Kbyte:”; 
bf’ TAB 22; "“Screen{"i;n;“}: PRINT 

FOR a=l TO 16 

TF a$(a,1)=CHRS$ 1 THEN NEXT a 





IF a$(a,1)=CHR$ @ THEN LET f=1: GO TO 158 ; 
PRINT " “;CHRS (at+64);":";aS(a, TO 8);"<";aS(a,9); ">", : 
NEXT a ‘ 
PRINT : PRINT : PRINT TAB 22; (” more..” AND f=8)+("no mor 


e,.”" AND f=1) 
PRINT AT 18,8:"{1] List Disc ";AT 19,8;°(2] Change Diso’; 

AT 20,8;"(3) Enter TRDOS” 

PLOT 8,0: DRAW @,175: DRAW 247,@: DRAW @,-175: DRAW -247,9 

GO SUB 51@: LET 2$=INKEY$ q 
IF z2$=CHR$ 9 AND f=] THEN GO TO 56 & 
IF z2$=CHR$ 9 THEN LET n=n+1: POKE x+4,n-1: RANDOMIZE USR x: Paar 
GO TO 60- : or 
IF z2$=CHRS 8 AND n=] THEN LET a=INT (f1/16)+1: POKR xe4,n-} °C; 
LET f=1: GO TO 6 oe 

IF z$=CHR$ 8 AND n>i THEN LET n=n-1: POKE x+4,n-1: LET f3@;° |. 
RANDOMIZE USR X: GO TO 60 Lo ee 

IF 2$>="a” AND CODE 2$<=a+95 THEN GO TO 300 OY ed 
IF z$>="A" AND CODE 2$<=a+63 THEN GO TO 300 4 Mayme de 
IF 2$=")" THEN GO SUB 540: GO TO 582 i oa 
IF 2$="2" THEN GO SUB 62@: RUN ba 

IF 2$="3" THEN RANDOMIZE USR 15616 wi 
IF 2$="3" THEN RUN ae 
GO TO 200 

IF z2$>="a" THEN LET p=CODE z2$-96 

IF 2$<="P" THEN LET p=CODE 2$-64 3 
LET p$sa$(p, TO 8) 

IF a$(p,1)=CHRS @ OR a$(p,1)=CHR$ 1 THEN GO TO 350 : 
IF a$(p,9)="B" THEN INPUT ;: PRINT 80;” Loading "ips: 
RANDOMIZE USR 15619: REM : LOAD p$ a. 
IF a$(p,9)="C” AND a8(p,14)="USR " THEN GO TO 6@@ | -.*s. 
IF a$(p,9)="C" THEN LET n$="Load addr? “: GO SUB 4683: 
360 
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Liating 2. continued. 


358 


368 
365 


375 
388 
398 
400 


410 
428 
4308 


442 
450 
4608 
470 
480 
499 
5008 
5198 
520 
5328 
548 


558 
560 
578 
588 
599 
600 
618 
620 
638 


643 
850 


INPUT ;: PRINT &8;" <B> and <C> Files only...": FOR 2=1 TO 
106: NEXT 2 : GO TO 200 

IF q$=" STOP “ THEN GO TO 200 

IF q$<>"" THEN IF VAL q$+(CODE a$(p,12)+256¥*CODE a$(p,13))> 
65536 THEN INPUT ;: PRINT #0;"“ Loading to high:Press a key. 
.."t: PAUSE 8: GO TO 342 2 ame ; 

IF ‘y$=CHR$ 226 THEN GO TO 60 

IF y$="y” OR y$="Y" THEN GO SUB 558: GO TO 4200 

GO TO 370 ; 

POKE x+14+(5 AND y$=""), rt-256*INT (rt/256): POKE x+15+(5 A 
ND y$=""), INT (rt/256): RANDOMIZE USR (x+13+(5 AND y$="")) 

INPUT ;: PRINT #8;" Loading "“;p$;"<C>": IF q$="" THEN GO SU 
B 500: RANDOMIZE USR 15619: REM : LOAD p$CODE 

IF 9$<>"" THEN LET r=VAL q$: RANDOMIZE USR 15619: REM : LOA 
D pSCODE VAL q$ 

LET n$="Run addr? “: GO SUB 460: CLS : IF q$=" STOP “ THEN 
GO TO 68 

IF q$="" THEN RANDOMIZE USR r: GO TO 1e4 

IF q$<>"" THEN ,RANDOMIZE USR VAL q$: GO TO 1e4 

INPUT ~ “;(p$)i "<C> “;(n$); LINE q$ 

IF CODE q$>=5@ AND CODE q$<=54 AND LEN q$=5 THEN RETURN 

IF q$="" OR q$=" STOP ” THEN RETURN 

GO TO 468 


LET r=CGDE (a$(p,18))}+256*CODE (a$(p,11)): RETURN” 

IF INKEY$<>“" THEN GO TO 518 

IF INKEY$="" THEN GO TO 526 

RETURN 

INPUT ;+ PRINT #@;“ Insert Disc and Press any key..“: GO SU 


B 510: RETURN 
INPUT “ New Ramtop? “; LINE y$: IF y$="" THEN GO SUB 5@@: L 
ET rt=r: RETURN 


IF CODE y$>=51 AND CODE y$<=54 AND LEN y$=5 THEN LET rt=VAL 
y$: RETURN 

GO TO 5598 

RANDOMIZE USR 15619: REM : LIST 


PRINT #@;" Press a key”: PAUSE 9: GO TO 60 

INPUT ;: PRINT 88; Snapshot: “;p$;” Sure?(y/n)": GO SUB 
810: LET y$=INKEYS$: IF y$<>"“y" AND y$<>"“Y" THEN GO TO 60 
INPUT ;: PRINT #0;~ Loading Snapshot File “;p$: RANDOMIZE 
USR 15619: REM : GO TO PS$CODE 

INPUT ;: PRINT #8;" Insert Disc : Drive A,B,C,D ?": GO SUB 
510: LET z$=INKEY$: IF z$>"d" OR 2$<“A" THEN GO TO 620 

IF 2$>°D" AND 2$<"a" THEN GO TO 620 

RANDOMIZE USR 15619: REM :*2$;":" 

RETURN 


BDUC, 2, DOWNHAM AVENUE, RAWTENSTALL, ROSSENDALE, LANCASHIRE. BB4 8JY 


